object FormStatus: TFormStatus Left = 74 Top = 522 BorderIcons = [] BorderStyle = bsSingle Caption = 'Status' ClientHeight = 173 ClientWidth = 162 Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsMDIChild Icon.Data = {} Position = poDefaultPosOnly Scaled = False Visible = True OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object Panel: TPanel Left = 0 Top = 0 Width = 162 Height = 150 Align = alTop BevelOuter = bvNone Caption = 'Panel' TabOrder = 0 object ColorStringGrid: TColorStringGrid Left = 0 Top = 0 Width = 162 Height = 150 TabStop = False Align = alClient BorderStyle = bsNone ColCount = 2 DefaultColWidth = 80 FixedCols = 0 RowCount = 6 FixedRows = 0 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine] ScrollBars = ssNone TabOrder = 0 OnGetCellColor = ColorStringGridGetCellColor end end object PanelLight: TPanel Left = 0 Top = 152 Width = 162 Height = 21 Align = alBottom BevelOuter = bvNone Color = clWhite TabOrder = 1 object LEDGreen: TLED Left = 36 Top = 2 Color = Green State = LEDOff Blinking = False BlinkInterval = 500 end object LabelStatus: TLabel Left = 64 Top = 2 Width = 97 Height = 20 AutoSize = False Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object LEDRed: TLED Left = 4 Top = 2 Color = Red State = LEDOff Blinking = False BlinkInterval = 500 end object LEDYellow: TLED Left = 20 Top = 2 Color = Yellow State = LEDOff Blinking = False BlinkInterval = 500 end end end